home *** CD-ROM | disk | FTP | other *** search
/ People & Parliament - A …er's Guide to Westminster / People and Parliament - A Stranger's Guide to Westminster (1998)(House of Commons).iso / parl / 8bit80.dir / 00114_Script_114 < prev    next >
Text File  |  1998-03-23  |  799b  |  34 lines
  1. on exitFrame
  2.   getaquestion
  3. end
  4.  
  5. on getaquestion
  6.   GLOBAL QRESULT,RANDOMQ
  7.   PUT THE TEXT OF MEMBER "QUIZ STUFF" INTO BLOB
  8.   PUT RANDOM(240) INTO RANDOMQ
  9.   checktheLIST
  10.   
  11.   add listcheck, RANDOMQ
  12.   
  13.   
  14.   PUT LINE 1+(RANDOMQ*5) OF BLOB INTO QFIELD
  15.   PUT LINE 2+(RANDOMQ*5) OF BLOB INTO AFIELD1
  16.   PUT LINE 3+(RANDOMQ*5) OF BLOB INTO AFIELD2
  17.   PUT LINE 4+(RANDOMQ*5) OF BLOB INTO AFIELD3
  18.   PUT LINE 5+(RANDOMQ*5) OF BLOB INTO QRESULT
  19.   
  20.   SET THE TEXT OF MEMBER "QFIELD" TO ""&QFIELD
  21.   SET THE TEXT OF MEMBER "AFIELD1" TO ""&AFIELD1
  22.   SET THE TEXT OF MEMBER "AFIELD2" TO ""&AFIELD2
  23.   SET THE TEXT OF MEMBER "AFIELD3" TO ""&AFIELD3
  24. end
  25.  
  26.  
  27.  
  28. on checktheLIST
  29.   GLOBAL QRESULT,RANDOMQ
  30.   getPos(listcheck, RANDOMQ)
  31.   if the result<>0 then getaquestion
  32.   exit
  33. end checktheLIST
  34.